﻿Public Class fmMenu

    Private Sub DanhMụcPhòngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim fm As New fmdanmucphong()
        fm.Show()
    End Sub

    Private Sub PhiếuThuêPhòngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim fm As New fmPhieuThuePhong()
        fm.Show()
    End Sub

    Private Sub TraCứuPhòngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim fm As New fmTraCuuPhong()
        fm.Show()
    End Sub

    Private Sub ThanhToánHóaĐơnToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim fm As New fmThanhToanHoaDon()
        fm.Show()
    End Sub

    Private Sub BáoCáoDoanhThuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim fm As New fmBaoCaoDoanhThuLoaiPhong()
        fm.Show()
    End Sub

    Private Sub BáoCáoMậtĐộToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim fm As New fmBaoCaoMatDoSuDungPhong()
        fm.Show()
    End Sub

    Private Sub BáoCáoDanhThuTheoLoaiPhòngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BáoCáoDanhThuTheoLoaiPhòngToolStripMenuItem.Click
        Dim fm As New fmBaoCaoDoanhThuLoaiPhong()
        fm.Show()
    End Sub

    Private Sub DanhSáchPhòngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DanhSáchPhòngToolStripMenuItem.Click
        Dim fm As New fmdanmucphong()
        fm.Show()
    End Sub

    Private Sub PhiếuThuêToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhiếuThuêToolStripMenuItem.Click
        Dim fm As New fmPhieuThuePhong()
        fm.Show()
    End Sub

    Private Sub HóaĐơnToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HóaĐơnToolStripMenuItem1.Click
        Dim fm As New fmHoaDon()
        fm.Show()
    End Sub

    Private Sub BáoCáoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BáoCáoToolStripMenuItem.Click
        Dim fm As New fmBaoCaoMatDoSuDungPhong()
        fm.Show()
    End Sub

    Private Sub PhòngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhòngToolStripMenuItem.Click
        Dim fm As New fmTraCuuPhong()
        fm.Show()
    End Sub

    Private Sub PhiếuThuêPhòngToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhiếuThuêPhòngToolStripMenuItem.Click
        Dim fm As New fmTraCuuPhieuThue()
        fm.Show()
    End Sub

    Private Sub HóaĐơnToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HóaĐơnToolStripMenuItem.Click
        Dim fm As New fmTraCuuHoaDon()
        fm.Show()
    End Sub

    Private Sub BáoCáoDoanhThuLoạiPhòngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BáoCáoDoanhThuLoạiPhòngToolStripMenuItem.Click
        Dim fm As New fmTraCuuDoanhThu()
        fm.Show()
    End Sub

    Private Sub BáoCáoMậtĐộSửDụngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BáoCáoMậtĐộSửDụngToolStripMenuItem.Click
        Dim fm As New fmTraCuuMatDoSuDung()
        fm.Show()
    End Sub

    Private Sub TiếpNhậnPhòngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TiếpNhậnPhòngToolStripMenuItem.Click
        Dim fm As New fmTiepNhanPhong()
        fm.Show()
    End Sub

    Private Sub ThêmLoạiPhòngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThêmLoạiPhòngToolStripMenuItem.Click
        Dim fm As New fmThemLoaiPhong()
        fm.Show()
    End Sub

    Private Sub QuyĐịnhToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuyĐịnhToolStripMenuItem.Click
        Dim fm As New fmQuiDinh()
        fm.Show()
    End Sub
End Class
